home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / LASTNB.f < prev    next >
Text File  |  1992-07-31  |  577b  |  18 lines
  1.       FUNCTION LASTNB(STRING,KFCH,KLCH) 
  2. *-----------------------------------------------------------------------
  3. *   
  4. *   Returns as function value the position of the last non-blank in string  
  5. *   'STRING' between KFCH and KLCH. 
  6. *   This value is KFCH-1 if STRING consists of blanks only. 
  7. *   
  8. *-----------------------------------------------------------------------
  9.       CHARACTER *(*) STRING 
  10.       LASTNB=KFCH-1 
  11.       DO 10 I=KLCH,KFCH,-1  
  12.          IF(STRING(I:I).NE.' ') THEN
  13.             LASTNB=I
  14.             GOTO 999
  15.          ENDIF  
  16.    10 CONTINUE  
  17.   999 END   
  18.